중복이라면 댓글 달아주세요 삭제할께요..

1. Integer형 넣기

with Query do
begin
First;
while not(Eof) do
begin
Combobox1.Items.AddObject(FieldByName('상품명').AsString,
TObject(FieldByName('상품id').AsInteger));
Next;
end;
end;


빼쓰기

GoodID := LongInt(Combobox1.Items.Objects[Combobox1.ItemIndex]);


2. String형 넣기

with Query do
begin
First;
while not(Eof) do
begin
Combobox1.Items.AddObject(FieldByName('상품명').AsString,
TObject(LongInt(NewStr(FieldByName('상품id').AsString))));
Next;
end;
end;


빼쓰기

GoodID := PString(Combobox1.Items.Objects[combobox1.ItemIndex])^;


3. 잊지말고 메모리 해제합시다.

OnDestroy 이벤트에 코딩해줍니다.

for i := 0 to combobox1.Items.Count-1 do
DisposeStr(PString(combobox1.Items.Objects[i]));